home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pro One: Inductance & Capacitance
/
ProOne: Electronics - Inductance and Capacitance.iso
/
cdbackup
/
progfile.sfs
/
ELECT232.EXE
/
0
/
RCDATA
/
TFORMPICKSTUDENT
/
TFORMPICKSTUDENT.txt
Wrap
Text File
|
1998-04-04
|
4KB
|
171 lines
object FormPickStudent: TFormPickStudent
Left = 258
Top = 111
BorderStyle = bsDialog
Caption = 'Choose Your Name'
ClientHeight = 444
ClientWidth = 518
Color = clSilver
Font.Color = clBlack
Font.Height = -16
Font.Name = 'Arial'
Font.Style = []
PixelsPerInch = 120
Position = poScreenCenter
Scaled = False
ShowHint = True
OnActivate = FormOnActivate
OnCreate = PickOnCreate
OnDestroy = PickOnDestroy
TextHeight = 18
object Label1: TLabel
Left = 51
Top = 14
Width = 406
Height = 69
Alignment = taCenter
AutoSize = False
Caption =
'Please choose your entry from the list below . Select by highl' +
'ighting or clicking on your entry, then "Select Current"'
Font.Color = clBlack
Font.Height = -17
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
WordWrap = True
end
object GroupBox1: TGroupBox
Left = 23
Top = 90
Width = 468
Height = 75
Caption = 'Sort Order:'
Font.Color = clBlack
Font.Height = -17
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
object SpdBtnSortFirstLast: TSpeedButton
Left = 12
Top = 26
Width = 146
Height = 35
Hint = 'Show the names in First-Last name order'
GroupIndex = 111
Down = True
Caption = 'First-Last'
Font.Color = clBlack
Font.Height = -17
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
OnClick = ClkSortOrder
OnMouseDown = ButtonOnMouseDown
end
object SpdBtnSortLastFirst: TSpeedButton
Left = 162
Top = 26
Width = 145
Height = 35
Hint = 'Show the list in Last-First name order'
GroupIndex = 111
Caption = 'Last-First'
Font.Color = clBlack
Font.Height = -17
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
OnClick = ClkSortOrder
OnMouseDown = ButtonOnMouseDown
end
object SpdBtnSortStudentNum: TSpeedButton
Left = 312
Top = 26
Width = 145
Height = 35
Hint = 'Show the list in Student Number order'
GroupIndex = 111
Caption = 'Student Number'
Font.Color = clBlack
Font.Height = -17
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
OnClick = ClkSortOrder
OnMouseDown = ButtonOnMouseDown
end
end
object BtnSelectCurrent: TButton
Left = 7
Top = 386
Width = 157
Height = 40
Hint = 'Selects the currently highlighted information'
Caption = 'Select Current'
Default = True
Font.Color = clBlack
Font.Height = -17
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
OnClick = ClkSelectCurrent
OnMouseDown = ButtonOnMouseDown
end
object BtnAddNew: TButton
Left = 172
Top = 386
Width = 158
Height = 40
Hint = 'Add new student information'
Caption = 'Add New Student'
Font.Color = clBlack
Font.Height = -17
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 4
OnClick = ClkAddNew
OnMouseDown = ButtonOnMouseDown
end
object BtnCancel: TButton
Left = 335
Top = 386
Width = 158
Height = 40
Hint = 'Click here to use the "unknown" student records'
Cancel = True
Caption = 'Cancel'
Font.Color = clBlack
Font.Height = -17
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3
OnClick = ClkCancel
OnMouseDown = ButtonOnMouseDown
end
object DBGrid1: TDBGrid
Left = 7
Top = 178
Width = 495
Height = 193
Color = clWhite
Font.Color = clBlack
Font.Height = -17
Font.Name = 'Arial'
Font.Style = [fsBold]
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
ParentFont = False
ReadOnly = True
TabOrder = 0
TitleFont.Color = clBlack
TitleFont.Height = -15
TitleFont.Name = 'Arial'
TitleFont.Style = [fsBold, fsItalic]
OnDblClick = ClkSelectCurrent
end
end